home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / frmAddIn5.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-02  |  4.3 KB  |  135 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAddIn 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "KeyGen coded by CyberBlade..."
  6.    ClientHeight    =   3540
  7.    ClientLeft      =   2175
  8.    ClientTop       =   1935
  9.    ClientWidth     =   4515
  10.    Icon            =   "frmAddIn.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3540
  15.    ScaleWidth      =   4515
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton Command1 
  18.       Caption         =   "Quit"
  19.       Height          =   495
  20.       Left            =   2280
  21.       TabIndex        =   5
  22.       Top             =   2880
  23.       Width           =   1815
  24.    End
  25.    Begin VB.CommandButton cmdGenerate 
  26.       Caption         =   "Generate"
  27.       Height          =   495
  28.       Left            =   360
  29.       TabIndex        =   4
  30.       Top             =   2880
  31.       Width           =   1815
  32.    End
  33.    Begin VB.Frame Frame2 
  34.       BackColor       =   &H80000007&
  35.       Caption         =   "Serial:"
  36.       ForeColor       =   &H000000FF&
  37.       Height          =   975
  38.       Left            =   240
  39.       TabIndex        =   2
  40.       Top             =   1560
  41.       Width           =   3975
  42.       Begin VB.TextBox txtKey 
  43.          BackColor       =   &H00E0E0E0&
  44.          ForeColor       =   &H00800000&
  45.          Height          =   375
  46.          Left            =   240
  47.          Locked          =   -1  'True
  48.          TabIndex        =   3
  49.          Text            =   "< Your serial will be displayed here >"
  50.          Top             =   360
  51.          Width           =   3495
  52.       End
  53.    End
  54.    Begin VB.Frame Frame1 
  55.       BackColor       =   &H80000007&
  56.       Caption         =   "Please enter your name in the field below:"
  57.       ForeColor       =   &H000000FF&
  58.       Height          =   975
  59.       Left            =   240
  60.       TabIndex        =   0
  61.       Top             =   480
  62.       Width           =   3975
  63.       Begin VB.TextBox txtName 
  64.          ForeColor       =   &H00000000&
  65.          Height          =   375
  66.          Left            =   240
  67.          TabIndex        =   1
  68.          Text            =   "CyberBlade"
  69.          Top             =   360
  70.          Width           =   3375
  71.       End
  72.    End
  73.    Begin VB.Label Label1 
  74.       Alignment       =   2  'Center
  75.       BackStyle       =   0  'Transparent
  76.       Caption         =   "This is a KeyGen for CrackMe v1.0 by Eternal Bliss and  Volatility "
  77.       ForeColor       =   &H00FFFFFF&
  78.       Height          =   495
  79.       Left            =   0
  80.       TabIndex        =   6
  81.       Top             =   0
  82.       Width           =   4095
  83.    End
  84.    Begin VB.Line Line3 
  85.       BorderColor     =   &H00FFFFFF&
  86.       X1              =   0
  87.       X2              =   4560
  88.       Y1              =   2640
  89.       Y2              =   2640
  90.    End
  91.    Begin VB.Line Line2 
  92.       BorderColor     =   &H00FFFFFF&
  93.       X1              =   4560
  94.       X2              =   4575
  95.       Y1              =   2520
  96.       Y2              =   2535
  97.    End
  98.    Begin VB.Line Line1 
  99.       BorderColor     =   &H00E0E0E0&
  100.       BorderWidth     =   2
  101.       X1              =   4560
  102.       X2              =   4575
  103.       Y1              =   2520
  104.       Y2              =   2535
  105.    End
  106. Attribute VB_Name = "frmAddIn"
  107. Attribute VB_GlobalNameSpace = False
  108. Attribute VB_Creatable = False
  109. Attribute VB_PredeclaredId = True
  110. Attribute VB_Exposed = False
  111. Private Sub cmdGenerate_Click()
  112. Dim Key As Double
  113. Dim UserName(1 To 255) As Double 'This hold the AscII values of the UserName
  114. Dim Value1 As Double
  115. Dim Value2 As Double
  116. 'Length of Name must be greater than 5 !
  117. If Len(txtName.Text) < 5 Then
  118.     MsgBox "You have to enter at least 5 chars !", vbInformation + vbOKOnly, "Error!"
  119.     Exit Sub
  120. End If
  121. 'Read the AscII values of the UserName
  122. For i = 1 To Len(txtName.Text)
  123.     UserName(i) = Asc(Mid(txtName.Text, i, 1))
  124. 'Add Character 1 to character 8
  125. Value1 = UserName(1) + UserName(8)
  126. 'and so on...
  127. Value1 = Value1 * UserName(2)
  128. Value1 = Value1 + UserName(7)
  129. Key = (((((Value1 * UserName(3)) + UserName(6)) * UserName(4)) + UserName(5)) * UserName(5))
  130. txtKey.Text = Key
  131. End Sub
  132. Private Sub Command1_Click()
  133.     Unload Me
  134. End Sub
  135.